Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue43/construc/Listing2.pas

Pascal/Delphi Source File | 1999-02-05 | 261 b | 10 lines

procedure TNewsgroupServer.JoinNewsgroup(Newsgroup: PChar;
  out NumberOfArticles: HResult);
begin
  with Form1 do
  begin
    BNNTP1.JoinNewsgroup(Newsgroup);
    NumberOfArticles := BNNTP1.LastArticle - BNNTP1.FirstArticle
  end
end {JoinNewsgroup};